home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / card_25773.txt < prev    next >
Text File  |  1989-10-27  |  5KB  |  214 lines
  1. -- card: 25773 from stack: in
  2. -- bmap block id: 25885
  3. -- flags: 4000
  4. -- background id: 3493
  5. -- name: Region 220
  6. ----- HyperTalk script -----
  7. -- Script of card "Region 105"
  8.  
  9. on GetDataForCard cardName
  10.   --{ Hide the following for display:
  11.   global connectMode
  12.   if connectMode = "Simulation" then
  13.     S_GetDataForCard cardName
  14.     exit GetDataForCard
  15.   end if
  16.   --}
  17.   put the short name of me into cardName
  18.   put word 2 of cardName into regionNum
  19.   --put "select rep_nr,quota,sales,last_name from staff where rep_office = " & regionNum & " order by rep_nr descending; " into query
  20.   put "select rep_nr,quota,sales,last_name from staff" && "where rep_office = " & regionNum & " order by rep_nr; " into query
  21.   put "2,3,4,17" into fieldsToFill
  22.   PutDataInFields query, fieldsToFill, cardName
  23. end GetDataForCard
  24.  
  25.  
  26. --{ Hide the following for display:
  27. on S_GetDataForCard cardName
  28.   --for the simulation mode:
  29.   put "staff" into tableName
  30.   put "rep_nr,quota,sales,last_name" into fmFields
  31.   put "2,3,4,17" into toFields
  32.   if cardName is empty
  33.   then put the short name of this card into cardName
  34.   put word 2 of cardName into regionNum
  35.  
  36.   put "select" && fmFields && "from" && tableName && "where rep_office = " & regionNum && "order by rep_nr descending; " into s_query
  37.  
  38.   S_PutDataInFields s_query,tableName, selectedRecords(tableName,"rep_office",regionNum), fmFields,toFields,cardName
  39. end S_GetDataForCard
  40.  
  41. function selectedRecords tableName,keyFieldName,keyValue
  42. set lockScreen to true
  43. set lockMessages to true
  44. push card card
  45. go card tableName
  46. get number of lines of card field keyFieldName
  47. repeat with i = 1 to it
  48.   --select all records whose office number is in this region
  49.   if line i of card field keyFieldName = keyValue then
  50.     put i & "," after recordList
  51.   end if
  52. end repeat
  53. put empty into last char of recordList
  54.  
  55. pop card
  56. set lockScreen to false
  57. set lockMessages to false
  58. return recordList
  59. end selectedRecords
  60.  
  61. --}
  62.  
  63.  
  64.  
  65. -- part 18 (field)
  66. -- low flags: 80
  67. -- high flags: 2004
  68. -- rect: left=16 top=62 right=260 bottom=493
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Card Script
  77. ----- HyperTalk script -----
  78. on doSelect
  79.   put the mouseV into theClick
  80.   put textHeight of me into lineHeight
  81.   put rect of me into window
  82.   put item 1 of window into left
  83.   set the lockText of me to false
  84.   click at left, theClick
  85.   click at left, theClick + lineHeight with shiftKey
  86.   if the selection is not empty then
  87.     repeat until return is in the selection
  88.       add lineHeight to theClick
  89.       click at left, theClick + lineHeight with shiftKey
  90.     end repeat
  91.   end if
  92. end doSelect
  93.  
  94.  
  95.  
  96. -- part 22 (field)
  97. -- low flags: 81
  98. -- high flags: 2000
  99. -- rect: left=19 top=62 right=257 bottom=489
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Card Script Mask
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   send doSelect to card field "Card Script"
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 24 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=8 top=7 right=31 bottom=31
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 1014 / 1014
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Prev
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   visual wipe right
  130.   go prev
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 25 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=34 top=7 right=31 bottom=57
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 1013 / 1013
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Next
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   visual wipe left
  150.   go Next
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part contents for background part 1
  156. ----- text -----
  157. Sales Representative Data for Region 220
  158.  
  159. -- part contents for background part 6
  160. ----- text -----
  161. rep_nr
  162.  
  163. -- part contents for background part 7
  164. ----- text -----
  165. quota
  166.  
  167. -- part contents for background part 8
  168. ----- text -----
  169. sales
  170.  
  171. -- part contents for background part 9
  172. ----- text -----
  173. percent
  174.  
  175. -- part contents for background part 16
  176. ----- text -----
  177. last_name
  178.  
  179. -- part contents for background part 26
  180. ----- text -----
  181. status
  182.  
  183. -- part contents for card part 18
  184. ----- text -----
  185. -- Script of card "Region 105"
  186.  
  187. on GetDataForCard
  188.   put the short name of me into cardName
  189.   put word 2 of cardName into regionNum
  190.   put "select rep_nr, quota, sales, last_name from staff where rep_office = " & regionNum & " order by rep_nr descending; " into query
  191.   put "2,3,4,17" into fieldsToFill
  192.   PutDataInFields query, fieldsToFill, cardName
  193. end GetDataForCard
  194.  
  195.  
  196. -- part contents for background part 2
  197. ----- text -----
  198. 700,1200,1700,1800
  199.  
  200. -- part contents for background part 3
  201. ----- text -----
  202. 129000.00,185000.00,69000.00,95000.00
  203.  
  204. -- part contents for background part 4
  205. ----- text -----
  206. 135652.20,165234.24,37502.21,56214.22
  207.  
  208. -- part contents for background part 31
  209. ----- text -----
  210. Finkel,Crawford,Mathis,Harrison
  211.  
  212. -- part contents for background part 5
  213. ----- text -----
  214. 105.1,89.3,54.3,59.1